object DM: TDM
  OldCreateOrder = False
  Height = 600
  Width = 989
  object DataBase: TIBDatabase
    Connected = True
    DatabaseName = 'c:\project\data base\database.fdb'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey'
      'lc_ctype=WIN1252')
    LoginPrompt = False
    BeforeConnect = DataBaseBeforeConnect
    Left = 48
    Top = 32
  end
  object Transaction: TIBTransaction
    Active = True
    DefaultDatabase = DataBase
    Left = 120
    Top = 40
  end
  object DataSetPais: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from PAIS'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into PAIS'
      
        '  (DATAALTERACAO, DATACADASTRO, DDI, HORAALTERACAO, HORACADASTRO' +
        ', NOME, '
      '   USERALTERACAO, USERCADASTRO)'
      'values'
      
        '  (:DATAALTERACAO, :DATACADASTRO, :DDI, :HORAALTERACAO, :HORACAD' +
        'ASTRO, '
      '   :NOME, :USERALTERACAO, :USERCADASTRO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  NOME,'
      '  DDI,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO'
      'from PAIS '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from PAIS')
    ModifySQL.Strings = (
      'update PAIS'
      'set'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  DDI = :DDI,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  NOME = :NOME,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO'
      'where'
      '  ID = :OLD_ID')
    GeneratorField.Field = 'ID'
    GeneratorField.Generator = 'GEN_PAIS_ID'
    GeneratorField.IncrementBy = 0
    Left = 40
    Top = 176
    object DataSetPaisID: TIntegerField
      FieldName = 'ID'
      Origin = '"PAIS"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetPaisNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PAIS"."NOME"'
      Required = True
      Size = 50
    end
    object DataSetPaisDDI: TIntegerField
      FieldName = 'DDI'
      Origin = '"PAIS"."DDI"'
    end
    object DataSetPaisDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"PAIS"."DATACADASTRO"'
    end
    object DataSetPaisDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"PAIS"."DATAALTERACAO"'
    end
    object DataSetPaisHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"PAIS"."HORACADASTRO"'
    end
    object DataSetPaisHORAALTERACAO: TDateField
      FieldName = 'HORAALTERACAO'
      Origin = '"PAIS"."HORAALTERACAO"'
    end
    object DataSetPaisUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"PAIS"."USERCADASTRO"'
      Size = 100
    end
    object DataSetPaisUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"PAIS"."USERALTERACAO"'
      Size = 100
    end
  end
  object DataSourcePais: TDataSource
    DataSet = DataSetPais
    Left = 40
    Top = 128
  end
  object DataSetCor: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from COR'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into COR'
      
        '  (COMPOSICAO, DATAALTERACAO, DATACADASTRO, HORAALTERACAO, HORAC' +
        'ADASTRO, '
      '   IDCOLOR, NOME, USERALTERACAO, USERCADASTRO)'
      'values'
      
        '  (:COMPOSICAO, :DATAALTERACAO, :DATACADASTRO, :HORAALTERACAO, :' +
        'HORACADASTRO, '
      '   :IDCOLOR, :NOME, :USERALTERACAO, :USERCADASTRO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  NOME,'
      '  COMPOSICAO,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO,'
      '  IDCOLOR'
      'from COR '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from COR')
    ModifySQL.Strings = (
      'update COR'
      'set'
      '  COMPOSICAO = :COMPOSICAO,'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  IDCOLOR = :IDCOLOR,'
      '  NOME = :NOME,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO'
      'where'
      '  ID = :OLD_ID')
    GeneratorField.Field = 'ID'
    GeneratorField.Generator = 'GEN_COR_ID'
    GeneratorField.IncrementBy = 0
    Left = 128
    Top = 176
    object DataSetCorID: TIntegerField
      FieldName = 'ID'
      Origin = '"COR"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetCorNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"COR"."NOME"'
      Size = 50
    end
    object DataSetCorCOMPOSICAO: TIBStringField
      FieldName = 'COMPOSICAO'
      Origin = '"COR"."COMPOSICAO"'
      Size = 200
    end
    object DataSetCorDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"COR"."DATACADASTRO"'
    end
    object DataSetCorDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"COR"."DATAALTERACAO"'
    end
    object DataSetCorHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"COR"."HORACADASTRO"'
    end
    object DataSetCorHORAALTERACAO: TTimeField
      FieldName = 'HORAALTERACAO'
      Origin = '"COR"."HORAALTERACAO"'
    end
    object DataSetCorUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"COR"."USERCADASTRO"'
      Size = 100
    end
    object DataSetCorUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"COR"."USERALTERACAO"'
      Size = 100
    end
    object DataSetCorIDCOLOR: TIntegerField
      FieldName = 'IDCOLOR'
      Origin = '"COR"."IDCOLOR"'
    end
  end
  object DataSourceCor: TDataSource
    DataSet = DataSetCor
    Left = 128
    Top = 128
  end
  object DataSourceUsuario: TDataSource
    DataSet = DataSetUsuario
    Left = 224
    Top = 128
  end
  object DataSetUsuario: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from USUARIO'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into USUARIO'
      
        '  (CIDADE, COR, DATAALTERACAO, DATACADASTRO, ESTADO, HORAALTERAC' +
        'AO, HORACADASTRO, '
      
        '   LOGIN, MARCA, PAIS, SENHA, USERALTERACAO, USERCADASTRO, USUAR' +
        'IO)'
      'values'
      
        '  (:CIDADE, :COR, :DATAALTERACAO, :DATACADASTRO, :ESTADO, :HORAA' +
        'LTERACAO, '
      
        '   :HORACADASTRO, :LOGIN, :MARCA, :PAIS, :SENHA, :USERALTERACAO,' +
        ' :USERCADASTRO, '
      '   :USUARIO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  LOGIN,'
      '  SENHA,'
      '  PAIS,'
      '  COR,'
      '  USUARIO,'
      '  CIDADE,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO,'
      '  ESTADO,'
      '  MARCA'
      'from USUARIO '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from USUARIO')
    ModifySQL.Strings = (
      'update USUARIO'
      'set'
      '  CIDADE = :CIDADE,'
      '  COR = :COR,'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  ESTADO = :ESTADO,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  LOGIN = :LOGIN,'
      '  MARCA = :MARCA,'
      '  PAIS = :PAIS,'
      '  SENHA = :SENHA,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO,'
      '  USUARIO = :USUARIO'
      'where'
      '  ID = :OLD_ID')
    GeneratorField.Field = 'ID'
    GeneratorField.Generator = 'GEN_USUARIO_ID'
    GeneratorField.IncrementBy = 0
    Left = 224
    Top = 176
    object DataSetUsuarioID: TIntegerField
      FieldName = 'ID'
      Origin = '"USUARIO"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetUsuarioLOGIN: TIBStringField
      FieldName = 'LOGIN'
      Origin = '"USUARIO"."LOGIN"'
      Size = 50
    end
    object DataSetUsuarioSENHA: TIBStringField
      FieldName = 'SENHA'
      Origin = '"USUARIO"."SENHA"'
      Size = 50
    end
    object DataSetUsuarioPAIS: TIBStringField
      FieldName = 'PAIS'
      Origin = '"USUARIO"."PAIS"'
      Size = 50
    end
    object DataSetUsuarioCOR: TIBStringField
      FieldName = 'COR'
      Origin = '"USUARIO"."COR"'
      Size = 50
    end
    object DataSetUsuarioUSUARIO: TIBStringField
      FieldName = 'USUARIO'
      Origin = '"USUARIO"."USUARIO"'
      Size = 50
    end
    object DataSetUsuarioCIDADE: TIBStringField
      FieldName = 'CIDADE'
      Origin = '"USUARIO"."CIDADE"'
      Size = 50
    end
    object DataSetUsuarioDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"USUARIO"."DATACADASTRO"'
    end
    object DataSetUsuarioDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"USUARIO"."DATAALTERACAO"'
    end
    object DataSetUsuarioHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"USUARIO"."HORACADASTRO"'
    end
    object DataSetUsuarioHORAALTERACAO: TTimeField
      FieldName = 'HORAALTERACAO'
      Origin = '"USUARIO"."HORAALTERACAO"'
    end
    object DataSetUsuarioUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"USUARIO"."USERCADASTRO"'
      Size = 100
    end
    object DataSetUsuarioUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"USUARIO"."USERALTERACAO"'
      Size = 100
    end
    object DataSetUsuarioESTADO: TIBStringField
      FieldName = 'ESTADO'
      Origin = '"USUARIO"."ESTADO"'
      Size = 50
    end
    object DataSetUsuarioMARCA: TIBStringField
      FieldName = 'MARCA'
      Origin = '"USUARIO"."MARCA"'
      Size = 50
    end
  end
  object DataSetCidade: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from CIDADE'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into CIDADE'
      
        '  (CODMUNICIPIO, DATAALTERACAO, DATACADASTRO, DDI, HORAALTERACAO' +
        ', HORACADASTRO, '
      '   IDESTADO, NOME, USERALTERACAO, USERCADASTRO)'
      'values'
      
        '  (:CODMUNICIPIO, :DATAALTERACAO, :DATACADASTRO, :DDI, :HORAALTE' +
        'RACAO, '
      
        '   :HORACADASTRO, :IDESTADO, :NOME, :USERALTERACAO, :USERCADASTR' +
        'O)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  NOME,'
      '  CODMUNICIPIO,'
      '  IDESTADO,'
      '  DDI,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO'
      'from CIDADE '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from CIDADE')
    ModifySQL.Strings = (
      'update CIDADE'
      'set'
      '  CODMUNICIPIO = :CODMUNICIPIO,'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  DDI = :DDI,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  IDESTADO = :IDESTADO,'
      '  NOME = :NOME,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO'
      'where'
      '  ID = :OLD_ID')
    Left = 320
    Top = 176
    object DataSetCidadeID: TIntegerField
      FieldName = 'ID'
      Origin = '"CIDADE"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetCidadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"CIDADE"."NOME"'
      Required = True
      Size = 50
    end
    object DataSetCidadeCODMUNICIPIO: TIBStringField
      FieldName = 'CODMUNICIPIO'
      Origin = '"CIDADE"."CODMUNICIPIO"'
      Size = 15
    end
    object DataSetCidadeIDESTADO: TIntegerField
      FieldName = 'IDESTADO'
      Origin = '"CIDADE"."IDESTADO"'
      Required = True
    end
    object DataSetCidadeDDI: TIntegerField
      FieldName = 'DDI'
      Origin = '"CIDADE"."DDI"'
    end
    object DataSetCidadeDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"CIDADE"."DATACADASTRO"'
    end
    object DataSetCidadeDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"CIDADE"."DATAALTERACAO"'
    end
    object DataSetCidadeHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"CIDADE"."HORACADASTRO"'
    end
    object DataSetCidadeHORAALTERACAO: TDateField
      FieldName = 'HORAALTERACAO'
      Origin = '"CIDADE"."HORAALTERACAO"'
    end
    object DataSetCidadeUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"CIDADE"."USERCADASTRO"'
      Size = 100
    end
    object DataSetCidadeUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"CIDADE"."USERALTERACAO"'
      Size = 100
    end
  end
  object DataSetEstado: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from ESTADO'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into ESTADO'
      
        '  (DATAALTERACAO, DATACADASTRO, HORAALTERACAO, HORACADASTRO, IDP' +
        'AIS, NOME, '
      '   SIGLA, USERALTERACAO, USERCADASTRO)'
      'values'
      
        '  (:DATAALTERACAO, :DATACADASTRO, :HORAALTERACAO, :HORACADASTRO,' +
        ' :IDPAIS, '
      '   :NOME, :SIGLA, :USERALTERACAO, :USERCADASTRO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  NOME,'
      '  SIGLA,'
      '  IDPAIS,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO'
      'from ESTADO '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from ESTADO')
    ModifySQL.Strings = (
      'update ESTADO'
      'set'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  IDPAIS = :IDPAIS,'
      '  NOME = :NOME,'
      '  SIGLA = :SIGLA,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO'
      'where'
      '  ID = :OLD_ID')
    Left = 420
    Top = 176
    object DataSetEstadoID: TIntegerField
      FieldName = 'ID'
      Origin = '"ESTADO"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetEstadoNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"ESTADO"."NOME"'
      Required = True
      Size = 50
    end
    object DataSetEstadoSIGLA: TIBStringField
      FieldName = 'SIGLA'
      Origin = '"ESTADO"."SIGLA"'
      Size = 2
    end
    object DataSetEstadoIDPAIS: TIntegerField
      FieldName = 'IDPAIS'
      Origin = '"ESTADO"."IDPAIS"'
      Required = True
    end
    object DataSetEstadoDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"ESTADO"."DATACADASTRO"'
    end
    object DataSetEstadoDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"ESTADO"."DATAALTERACAO"'
    end
    object DataSetEstadoHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"ESTADO"."HORACADASTRO"'
    end
    object DataSetEstadoHORAALTERACAO: TDateField
      FieldName = 'HORAALTERACAO'
      Origin = '"ESTADO"."HORAALTERACAO"'
    end
    object DataSetEstadoUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"ESTADO"."USERCADASTRO"'
      Size = 100
    end
    object DataSetEstadoUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"ESTADO"."USERALTERACAO"'
      Size = 100
    end
  end
  object DataSourceCidade: TDataSource
    DataSet = DataSetCidade
    Left = 320
    Top = 128
  end
  object DataSourceEstado: TDataSource
    DataSet = DataSetEstado
    Left = 420
    Top = 128
  end
  object DataSetMarca: TIBDataSet
    Database = DataBase
    Transaction = Transaction
    DeleteSQL.Strings = (
      'delete from MARCA'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into MARCA'
      
        '  (COMISAO, DATAALTERACAO, DATACADASTRO, HORAALTERACAO, HORACADA' +
        'STRO, NOME, '
      '   USERALTERACAO, USERCADASTRO)'
      'values'
      
        '  (:COMISAO, :DATAALTERACAO, :DATACADASTRO, :HORAALTERACAO, :HOR' +
        'ACADASTRO, '
      '   :NOME, :USERALTERACAO, :USERCADASTRO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID,'
      '  NOME,'
      '  COMISAO,'
      '  DATACADASTRO,'
      '  DATAALTERACAO,'
      '  HORACADASTRO,'
      '  HORAALTERACAO,'
      '  USERCADASTRO,'
      '  USERALTERACAO'
      'from MARCA '
      'where'
      '  ID = :ID')
    SelectSQL.Strings = (
      'select * from MARCA')
    ModifySQL.Strings = (
      'update MARCA'
      'set'
      '  COMISAO = :COMISAO,'
      '  DATAALTERACAO = :DATAALTERACAO,'
      '  DATACADASTRO = :DATACADASTRO,'
      '  HORAALTERACAO = :HORAALTERACAO,'
      '  HORACADASTRO = :HORACADASTRO,'
      '  NOME = :NOME,'
      '  USERALTERACAO = :USERALTERACAO,'
      '  USERCADASTRO = :USERCADASTRO'
      'where'
      '  ID = :OLD_ID')
    GeneratorField.Field = 'ID'
    GeneratorField.Generator = 'GEN_MARCA_ID'
    GeneratorField.IncrementBy = 0
    Active = True
    Left = 520
    Top = 176
    object DataSetMarcaID: TIntegerField
      FieldName = 'ID'
      Origin = '"MARCA"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object DataSetMarcaNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"MARCA"."NOME"'
      Size = 100
    end
    object DataSetMarcaCOMISAO: TFloatField
      FieldName = 'COMISAO'
      Origin = '"MARCA"."COMISAO"'
    end
    object DataSetMarcaDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Origin = '"MARCA"."DATACADASTRO"'
    end
    object DataSetMarcaDATAALTERACAO: TDateField
      FieldName = 'DATAALTERACAO'
      Origin = '"MARCA"."DATAALTERACAO"'
    end
    object DataSetMarcaHORACADASTRO: TTimeField
      FieldName = 'HORACADASTRO'
      Origin = '"MARCA"."HORACADASTRO"'
    end
    object DataSetMarcaHORAALTERACAO: TTimeField
      FieldName = 'HORAALTERACAO'
      Origin = '"MARCA"."HORAALTERACAO"'
    end
    object DataSetMarcaUSERCADASTRO: TIBStringField
      FieldName = 'USERCADASTRO'
      Origin = '"MARCA"."USERCADASTRO"'
      Size = 50
    end
    object DataSetMarcaUSERALTERACAO: TIBStringField
      FieldName = 'USERALTERACAO'
      Origin = '"MARCA"."USERALTERACAO"'
      Size = 50
    end
  end
  object DataSourceMarca: TDataSource
    DataSet = DataSetMarca
    Left = 520
    Top = 128
  end
end
